home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utilwb / homer15.lha / Homer / Install < prev    next >
Text File  |  1996-05-14  |  4KB  |  145 lines
  1. ; $VER: HomerInstaller 1.5 (14.05.96)
  2.  
  3. ; =======================================================================
  4. ;   Set up some variables
  5. ; =======================================================================
  6.  
  7. (set OSVersion       (/ (getversion) 65536))
  8. (set WBVersion       (/ (getversion "libs:version.library") 65536))
  9. (set AGVersion       (/ (getversion "libs:amigaguide.library") 65536))
  10. (set cpu             (database "cpu"))
  11. (set #myaddress      "David Swasbrook,\nPO Box 54134,\nBucklands Beach,\nAuckland,\nNEW ZEALAND.\n" )
  12. (set #welcome        "\nDoh!\n\nHomer enhances the functionality of your Workbench" )
  13.  
  14.  
  15.  
  16.  
  17. (message #welcome)
  18. (welcome)
  19.  
  20.  
  21. ;
  22. ; ===== English
  23. ;
  24. (set #kickstart "\nERROR : BAD VERSION OF KICKSTART\n\nHomer requires KickStart %s (V%ld) or higher. It will not work on earlier versions.\nYou currently are running KickStart V%ld.\n\n%s")
  25. (set #goodbye "Homer is FREEWARE. If you really like this program you might want to tell me!")
  26. (set #continue "Continue with installation?")
  27. (set #aborted "Installation aborted!")
  28. (set #yes "Yes")
  29. (set #no "No")
  30. (set #which-disk "Where would you like to install homer? (A directory called Homer will be created here)")
  31. (set #which-disk-help "\nThis section lets you choose where to install Homer on your hard disk.\n\n")
  32. (set #doc-which-disk "Select directory to install documentation to")
  33. ;*** Messages
  34. (set #msg_tooltypes "Setting tool types for current setup...")
  35. ;*** Errors
  36. (set #err_CantMakeDirectory "An error has occured creating the Homer directory. Please check that the path you specified for installation to is valid!")
  37. (set #err_CantFindDirectory "The path you specified to install to was not located. Please check that the path you specified for installation to is valid!")
  38.  
  39. ; =======================================================================
  40. ;   Initialization
  41. ; =======================================================================
  42.  
  43. ; ===== Make sure that we are running under the correct version of kickstart
  44. (complete 0)(working #working_kickstart)
  45. (set #minver-text (cat "2.1") )
  46. (set minver 38)
  47.  
  48. (if (< OSVersion minver)
  49.     (
  50.     (set warning (#kickstart #minver-text minver OSVersion #aborted) )
  51.     (abort warning)
  52.     )
  53. )
  54.  
  55.  
  56. (if ( exists "work:" (noreq) )
  57.     (set @default-dest "work:")
  58.     (if ( exists "bin:" (noreq) )
  59.         (set @default-dest "bin:")
  60.         (set @default-dest "sys:")
  61.     )
  62. )
  63.  
  64.  
  65. (complete 0)
  66.  
  67.  
  68. ; =======================================================================
  69. ;   Select target directory
  70. ; =======================================================================
  71. (set target
  72.     (askdir (prompt #which-disk)
  73.         (help #which-disk-help @askdir-help)
  74.         (default @default-dest)
  75.     )
  76. )
  77.  
  78. (if ( exists target (noreq) )
  79.     (
  80.         (set target (tackon target "Homer" ) )
  81.         (if ( exists target (noreq) )
  82.             (message "Installing over previous version...")
  83.             (
  84.                 (makedir target (infos) )
  85.                 (if ( exists target (noreq) )
  86.                     (set dirmade 1 )
  87.                     (exit #err_CantMakeDirectory )
  88.                 )
  89.             )
  90.         )
  91.     )
  92.     (exit #err_CantFindDirectory)
  93. )
  94.  
  95. (set @default-dest target)
  96.  
  97. (makeassign "Homer" target (safe))
  98.  
  99. (copyfiles
  100.     (source "")
  101.     (dest "Homer:")
  102.     (choices "Homer" "Homer.conf" "HomerAnim.gif" "Homer.html" "HomerDict.gif" "HomerIcon.gif" )
  103.     (infos)
  104. )
  105.  
  106. (copyfiles
  107.     (source "Samples")
  108.     (dest "Homer:Samples")
  109.     (all)
  110. )
  111.  
  112. (copylib
  113.     (prompt "Matrix.Library")
  114.     (help "Help")
  115.     (source "libs/matrix.library")
  116.     (dest "libs:")
  117.     (confirm)
  118. )
  119. (copylib
  120.     (prompt "SwazConfig.Library")
  121.     (help "Help")
  122.     (source "libs/swazconfig.library")
  123.     (dest "libs:")
  124.     (confirm)
  125. )
  126.  
  127.  
  128. (complete 95)(working #msg_tooltypes)        ; ===== Change icon tool types
  129.  
  130. (tooltype    (dest "Homer:Homer")
  131.     (settooltype "PROGDIR" target )
  132.     (settooltype "DONOTWAIT" )
  133. )
  134.  
  135. ;** 
  136. ;** (complete 100)
  137. ;** 
  138. ;** 
  139. ;** 
  140. ;** 
  141.  
  142. (makeassign "Homer" (safe))
  143.  
  144. (exit #goodbye #myaddress)
  145.